home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / search.dxr / 00033_clear button.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  1.3 KB  |  50 lines
  1. property ancestor, pBankNumber
  2.  
  3. on getBankNumber me
  4.   return pBankNumber
  5. end
  6.  
  7. on new me, channelList, bankNumber, descendant
  8.   if objectp(descendant) then
  9.     ancestor = new(script("auto popup menu"), channelList, descendant)
  10.   else
  11.     ancestor = new(script("auto popup menu"), channelList, me)
  12.   end if
  13.   pBankNumber = bankNumber
  14.   return me
  15. end
  16.  
  17. on mouseUp me
  18.   global gSearchObj
  19.   poppedMenu = getPoppedMenu(getMenuBankObj(gSearchObj))
  20.   if objectp(poppedMenu) then
  21.     contract(poppedMenu)
  22.   end if
  23.   member(me.pMemberNum).boxDropShadow = 0
  24.   wait(5)
  25.   member(me.pMemberNum).boxDropShadow = 1
  26.   if rollOver(me.pBaseChannel) then
  27.     performFunction(me)
  28.   end if
  29. end
  30.  
  31. on performFunction me
  32.   global gSearchObj
  33.   menuBankObj = getMenuBankObj(gSearchObj)
  34.   poppedObj = getPoppedMenu(menuBankObj)
  35.   if objectp(poppedObj) then
  36.     contract(poppedObj)
  37.   end if
  38.   deleteBank(menuBankObj, pBankNumber)
  39.   status1 = getBankStatus(menuBankObj, 1)
  40.   status2 = getBankStatus(menuBankObj, 2)
  41.   status3 = getBankStatus(menuBankObj, 3)
  42.   if (status2 = #add) or ((status1 = #complete) and (status2 = #hidden)) then
  43.     showMe(getMenuObj(menuBankObj, 2, #add))
  44.   else
  45.     if (status3 = #add) or ((status2 = #complete) and (status3 = #hidden)) then
  46.       showMe(getMenuObj(menuBankObj, 3, #add))
  47.     end if
  48.   end if
  49. end
  50.